'!TITLE "<Title>"
PROGRAM PRO13
COM_ENCOM #1
TAKEARM


MOVE P,P0
FLUSH #1
PRINT #1,"START"
INPUT #1,P[10]
PRINT #1,"c"

IF POSX (P10)=9999 THEN *L1
LETX P1=POSX (P10)
LETY P1=POSY (P10)
LETZ P1=POSZ (P10)
LETRX P1=POSRX (P10)
LETRY P1=POSRY (P10)
LETRZ P1=POSRZ (P10)


APPROACH P,P1,1
MOVE L,P1

*L2:
FLUSH #1
PRINT #1,"START_1"
FLUSH #1
INPUT #1,P[10]

IF POSX (P10)=8888 THEN *L3
IF POSX (P10)=9999 THEN *L1
LETX P1=POSX (P10)
LETY P1=POSY (P10)
LETZ P1=POSZ (P10)
LETRX P1=POSRX (P10)
LETRY P1=POSRY (P10)
LETRZ P1=POSRZ (P10)


PRINT #1,"c"
FLUSH #1


MOVE L,P1
GOTO *L2
*L3:
APPROACH P,P1,20
FLUSH #1
PRINT #1,"START_1"

INPUT #1,P[10]
PRINT #1,"c"
IF POSX (P10)=8888 THEN *L3
IF POSX (P10)=9999 THEN *L1
LETX P1=POSX (P10)
LETY P1=POSY (P10)
LETZ P1=POSZ (P10)
LETRX P1=POSRX (P10)
LETRY P1=POSRY (P10)
LETRZ P1=POSRZ (P10)
APPROACH P,P1,20

MOVE L,P1
GOTO *L2
*L1:
MOVE P,P0

END
